repo.or.cz
/
andmenj-acm.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Namespacing everything to /UVa.
[andmenj-acm.git]
/
UVa
/
10137 - The Trip
/
p10137.~dpr
blob
4a5d3b6829b354d5e9eff246452babdcd34f1f37
1
program p10137;
\r
2
\r
3
{$APPTYPE CONSOLE}
\r
4
\r
5
uses
\r
6
SysUtils;
\r
7
\r
8
function isInt(d : double) : boolean;
\r
9
begin
\r
10
result := (floor(d) = double);
\r
11
end;
\r
12
\r
13
begin
\r
14
\r
15
end.
\r
